home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / origami2.arc / SHARE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  4.8 KB  |  193 lines
  1. 10  SCREEN 1,0:COLOR 1,15: KEY OFF: CLS
  2. 20  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 30  LINE(5,10)-(315,190),3,B
  4. 31  GOSUB 30000   '*** Textpad ***
  5. 32  PRINT FNCEN$("* Press <C> to continue *",40)
  6. 40  LOCATE 6,1
  7. 50  PRINT FNCEN$("* SHAREWARE *",40)
  8. 60  LINE(5,39)-(5,47)
  9. 70  LOCATE 9,1
  10. 80  PRINT FNCEN$("ORIGAMI is offered",40)
  11. 90  LINE(5,63)-(5,71)
  12. 100  PRINT FNCEN$("on a shareware basis.",40)
  13. 110  LINE(5,71)-(5,79)
  14. 120  LOCATE 11,1
  15. 130  PRINT FNCEN$("You are encouraged to distribute",40)
  16. 140  LINE(5,79)-(5,86)
  17. 150  PRINT FNCEN$("copies of ORIGAMI to anyone",40)
  18. 160  LINE(5,86)-(5,95)
  19. 170  PRINT FNCEN$("who would like one.",40)
  20. 180  LINE(5,95)-(5,103)
  21. 210  LOCATE 15,1
  22. 220  PRINT FNCEN$("No charge whatsoever is to be made",40)
  23. 230  LINE(5,110)-(5,117)
  24. 240  PRINT FNCEN$("for such copying",40)
  25. 250  LINE(5,117)-(5,124)
  26. 260  PRINT FNCEN$("and/or distributing",40)
  27. 270  LINE(5,110)-(5,150)
  28. 280  PRINT FNCEN$("except for costs of diskettes",40)
  29. 290  LINE(5,110)-(5,150)
  30. 300  PRINT FNCEN$("supplied by SIGs.",40)
  31. 310  LINE(5,110)-(5,155)
  32. 340  A$=INKEY$:IF A$="" GOTO 340
  33. 350  IF A$="C" OR A$="c" GOTO 370
  34. 360  GOTO 340
  35. 370  CLS
  36. 380  LINE(5,10)-(315,190),3,B
  37. 381  GOSUB 30000   '*** Textpad ***
  38. 382  PRINT FNCEN$("* Press <C> to continue *",40)
  39. 390  LOCATE 6,1
  40. 400  PRINT FNCEN$("The author would appreciate",40)
  41. 410  LINE(5,39)-(5,47)
  42. 420  PRINT FNCEN$("a contribution of $19.95",40)
  43. 430  LINE(5,47)-(5,55)
  44. 431  PRINT FNCEN$("(less the cost",40)
  45. 432  LINE(5,55)-(5,63)
  46. 433  PRINT FNCEN$("of a SIG diskette,",40)
  47. 434  LINE(5,63)-(5,71)
  48. 435  PRINT FNCEN$("if any)",40)
  49. 436  LINE(5,71)-(5,79)
  50. 440  PRINT FNCEN$("from those who find his efforts",40)
  51. 450  LINE(5,79)-(5,87)
  52. 460  PRINT FNCEN$("worthy of their support",40)
  53. 470  LINE(5,87)-(5,95)
  54. 480  PRINT FNCEN$("and would like to order",40)
  55. 490  LINE(5,95)-(5,103)
  56. 500  PRINT FNCEN$("a complete ORIGAMI software",40)
  57. 510  LINE(5,103)-(5,111)
  58. 520  PRINT FNCEN$("and paper supplies package",40)
  59. 530  LINE(5,111)-(5,119)
  60. 540  PRINT FNCEN$("of their own.",40)
  61. 541  LINE(5,119)-(5,127)
  62. 550  PRINT
  63. 590  PRINT FNCEN$("For a price list",40)
  64. 650  LINE(5,135)-(5,143)
  65. 655  PRINT FNCEN$("of ORIGAMI paper available,",40)
  66. 670  LINE(5,143)-(5,151)
  67. 671  PRINT FNCEN$("send SASE to address",40)
  68. 690  LINE(5,151)-(5,159)
  69. 691  PRINT FNCEN$("listed below.",40)
  70. 710  LINE(5,159)-(5,167)
  71. 720  A$=INKEY$:IF A$="" GOTO 720
  72. 730  IF A$="C" OR A$="c" GOTO 750
  73. 740  GOTO 720
  74. 750  CLS
  75. 760  LINE(5,10)-(315,190),3,B
  76. 761  GOSUB 30000   '*** Textpad ***
  77. 762  PRINT FNCEN$("Press <C> to continue.",40)
  78. 770  LOCATE 8,1
  79. 780  PRINT FNCEN$("Institutional users",40)
  80. 790  LINE(5,55)-(5,63)
  81. 800  PRINT
  82. 810  PRINT FNCEN$("are asked to contribute",40)
  83. 820  LINE(5,71)-(5,79)
  84. 830  PRINT
  85. 840  PRINT FNCEN$("$5 for each copy",40)
  86. 850  LINE(5,87)-(5,95)
  87. 860  PRINT
  88. 870  PRINT FNCEN$("in actual use",40)
  89. 880  LINE(5,103)-(5,111)
  90. 881  PRINT
  91. 890  PRINT FNCEN$("after the initial contribution",40)
  92. 900  LINE(5,119)-(5,127)
  93. 901  PRINT
  94. 910  PRINT FNCEN$("of $19.95.",40)
  95. 920  LINE(5,135)-(5,143)
  96. 930  A$=INKEY$:IF A$="" GOTO 930
  97. 940  IF A$="C" OR A$="c" GOTO 951
  98. 950  GOTO 930
  99. 951  CLS
  100. 952  LINE(5,10)-(315,190),3,B
  101. 953  GOSUB 30000   '*** Textpad ***
  102. 954  PRINT FNCEN$("Press <C> to continue.",40)
  103. 960  LOCATE 5,1
  104. 1150  PRINT FNCEN$("ORIGAMI is written in BASICA",40)
  105. 1160  LINE(5,31)-(5,39)
  106. 1170  PRINT FNCEN$("and the source code is open to you",40)
  107. 1171  LINE(5,39)-(5,47)
  108. 1190  PRINT FNCEN$("for modification",40)
  109. 1200  LINE(5,47)-(5,55)
  110. 1210  PRINT FNCEN$("and experimentation,",40)
  111. 1220  LINE(5,55)-(5,63)
  112. 1230  PRINT FNCEN$("but please do so",40)
  113. 1240  LINE(5,63)-(5,71)
  114. 1250  PRINT FNCEN$("on a separate personal diskette,",40)
  115. 1251  LINE(5,71)-(5,79)
  116. 1260  PRINT FNCEN$("retaining without modification",40)
  117. 1261  LINE(5,79)-(5,87)
  118. 1270  PRINT FNCEN$("all copyright notices,",40)
  119. 1271  LINE(5,87)-(5,95)
  120. 1290  PRINT FNCEN$("all requests for contributions,",40)
  121. 1291  LINE(5,95)-(5,103)
  122. 1300  PRINT FNCEN$("and all of the material",40)
  123. 1301  LINE(5,103)-(5,111)
  124. 1310  PRINT FNCEN$("included in this section,",40)
  125. 1311  LINE(5,111)-(5,119)
  126. 1315  PRINT
  127. 1320  PRINT FNCEN$("* SHAREWARE *",40)
  128. 1321  LINE(5,127)-(5,135)
  129. 1325  PRINT
  130. 1330  PRINT FNCEN$("and leave the original diskette",40)
  131. 1331  LINE(5,143)-(5,151)
  132. 1340  LINE(5,130)-(5,137)
  133. 1350  PRINT FNCEN$("unmodified for copying",40)
  134. 1351  LINE(5,151)-(5,159)
  135. 1370  PRINT FNCEN$("and distribution purposes.",40)
  136. 1380  LINE(5,159)-(5,167)
  137. 1390  LINE(5,10)-(315,190),3,B
  138. 1420  A$=INKEY$:IF A$="" GOTO 1420
  139. 1430  IF A$="C" OR A$="c" GOTO 1450
  140. 1440  GOTO 1400
  141. 1450  CLS
  142. 1460  LINE(5,10)-(315,190),3,B
  143. 1461  GOSUB 30000   '*** Textpad ***
  144. 1462  PRINT FNCEN$("* Press <C> to continue *",40)
  145. 1470  LOCATE 5,1
  146. 1480  PRINT FNCEN$("I would love to hear from you",40)
  147. 1481  LINE(5,31)-(5,39)
  148. 1490  PRINT
  149. 1500  PRINT FNCEN$("regarding your reaction",40)
  150. 1501  LINE(5,47)-(5,55)
  151. 1510  PRINT
  152. 1520  PRINT FNCEN$("to this program.",40)
  153. 1521  LINE(5,63)-(5,71)
  154. 1530  LINE(5,10)-(315,190),3,B
  155. 1540  PRINT:PRINT
  156. 1550  PRINT FNCEN$("Write to me at:",40)
  157. 1551  LINE(5,95)-(5,103)
  158. 1560  PRINT:PRINT
  159. 1570  PRINT FNCEN$("George Furiya",40)
  160. 1571  LINE(5,127)-(5,135)
  161. 1580  PRINT FNCEN$("299 State Street",40)
  162. 1581  LINE(5,135)-(5,143)
  163. 1590  PRINT FNCEN$("Brooklyn, NY 11201",40)
  164. 1591  LINE(5,143)-(5,151)
  165. 1600  LINE(5,10)-(315,190),3,B
  166. 1601  PRINT:PRINT
  167. 1602  PRINT FNCEN$("Enclose SASE if reply required.",40)
  168. 1603  LINE(5,151)-(5,159)
  169. 1630  A$=INKEY$:IF A$="" GOTO 1630
  170. 1640  IF A$="C" OR A$="c" GOTO 1660
  171. 1650  GOTO 1630
  172. 1660  CLS
  173. 1670  LINE(5,10)-(315,190),3,B
  174. 1680  LOCATE 11,1
  175. 1690  PRINT FNCEN$("Press <1> - To return to TITLE PAGE.",40)
  176. 1700  PRINT
  177. 1710  PRINT FNCEN$("  <2> - To exit from program.",40)
  178. 1720  LINE(5,10)-(315,190),3,B
  179. 1730  E$=INPUT$(1)
  180. 1740  IF E$<"1" OR E$>"2" GOTO 1730
  181. 1750  SEL=VAL(E$)
  182. 1760  COMMON SEL
  183. 1770  CLS
  184. 1780  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  185. 1781  LINE(70,75)-(250,125),3,B
  186. 1790  ON SEL GOTO 1800,1810
  187. 1800  CHAIN"a:titlepg"
  188. 1810  CHAIN"a:end
  189. 8999  END
  190. 30000  LOCATE 1,1
  191. 30010  PRINT"                                        "
  192. 30020  LOCATE 1,1:RETURN
  193.